/* OUTPUT TO c:\qadguicli\lbr_tr.txt. */
/*check the lbr in sct_det and ro_det run_time*/
FOR EACH sct_det WHERE sct_site = "510" AND sct_sim = "2004-10C" AND sct_lbr_tl <> 0,
    EACH pt_mstr WHERE pt_part = sct_part:
    FIND FIRST ro_det WHERE (ro_routing = pt_part OR ro_routing = pt_routing) NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ro_det THEN
       DISP pt_part pt_desc1 sct_lbr_tl WITH STREAM-IO.

END.
